Sub 데이터_가져오기()

    ChDir "C:\예제\Part 02\Chapter 05"
    Workbooks.Open Filename:="C:\예제\Part 02\Chapter 05"\급여대장.xlsx"
    Range("I6:I10").Copy
    Windows("급여 분석.xlsm").Activate
    Range("C6").PasteSpecial Paste:=xlPasteValues, _
                                  Operation:=xlNone, _
                                  SkipBlanks:=False, _
                                  Transpose:=False
    Windows("급여대장.xlsx").Activate
    ActiveWindow.Close

End Sub